[NAGWare Gateway Generator] Copyright (c) 1993 by the Numerical Algorithms Group Ltd functn
ndim integer x (ndim) real [fun_value] = functn(ndim,x) function [fun_value] = functn(ndim,x)